#INCLUDE "PROTHEUS.CH"
#INCLUDE "APWEBEX.CH"

User Function fswpva07
local 		cHtml

WEB EXTENDED INIT cHtml

If !Empty(HttpSession->aUser) .and. !Empty(HttpSession->aComan)

	If !Empty(HTTPGET->tira)
		HttpSession->aLista[Val(HttpGet->tira)][5] := 0
		Return cHtml := RedirPage( "u_fswpva03.apw" )
	else
		Return cHtml := RedirPage( "u_fswpva03.apw" )
	EndIf

ElseIF !Empty(HttpSession->aUser) .and. Empty(HttpSession->aComan)
	Return cHtml := RedirPage( "u_fswpva02.apw" )
	
Else
	Return cHtml := RedirPage( "u_fswpva01.apw" )
EndIf

WEB EXTENDED END

Return cHtml